From: Dmitry Gutov <dmitry@gutov.dev>
Date: Fri, 15 Mar 2024 02:28:45 +0000 (+0200)
Subject: (project--value-in-dir): Ensure that the global value is still honored
X-Git-Tag: archive/raspbian/1%30.1+1-3+rpi1^2~14^2~18^2~2243
X-Git-Url: https://dgit.raspbian.org/%22http://www.example.com/cgi/%22/%22http:/www.example.com/cgi/%22?a=commitdiff_plain;h=77a86d738eebc7a80b7d4a6357a5fa675df9de8c;p=emacs.git

(project--value-in-dir): Ensure that the global value is still honored

* lisp/progmodes/project.el (project--value-in-dir):
Ensure that the global value of the variable is still honored,
when the variable is not in dir-locals.
---

diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el
index 7103b36a892..ac18aceadcf 100644
--- a/lisp/progmodes/project.el
+++ b/lisp/progmodes/project.el
@@ -810,7 +810,8 @@ DIRS must contain directory names."
     (let ((enable-local-variables :all))
       (hack-dir-local-variables))
     ;; Don't use `hack-local-variables-apply' to avoid setting modes.
-    (alist-get var file-local-variables-alist)))
+    (alist-get var file-local-variables-alist
+               (symbol-value var))))
 
 (cl-defmethod project-buffers ((project (head vc)))
   (let* ((root (expand-file-name (file-name-as-directory (project-root project))))